home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2838B.ZIP / MDS2.ARC / PROJRPT.EDT < prev    next >
Text File  |  1989-02-25  |  322b  |  10 lines
  1. 1,1,24,80,3,0,0,7,24,80,1,0,24,8,8,22,23,24,1,69,61
  2. "SORT EMP.PROJ/G, EMP.DEPTNO"
  3. "SELECT EMP.DEP=DEPT.DEPT"
  4. "SELECT EMP.PROJ NO = PROJ.PROJ NO"
  5. "MESSAGE PRESS S TO RESTART, X TO EXIT REPORT"
  6. "IF KYBD='S' THEN GOTO PROJRPT"
  7. "IF KYBD='X' THEN CLEAR RETURN"
  8. "UNIQUE DEPT, PROJ"
  9. "COMPUTE YEARLY SAL = EMP.SAL * 12"
  10.